home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-252 picture publisher 50 / 1.ima / PPSETUPN.MS_ / PPSETUPN.MS
Text File  |  1994-09-06  |  32KB  |  1,030 lines
  1. '*************************************************************************
  2. '*      Setup for Micrografx Picture Publisher 5.0  NETV.1
  3. '**************************************************************************
  4.  
  5.  
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9. '$INCLUDE 'msregdb.inc'
  10. '$INCLUDE 'ppnamini.inc'
  11. '$INCLUDE 'ppini.inc'
  12.  
  13.  
  14. ''Dialog ID's
  15. CONST WELCOME      = 100
  16. CONST NETSUCCESS   = 101
  17. CONST CUSTHELP     = 115
  18. CONST CDOPTIONS    = 116
  19. CONST EXPRESSOPT   = 121
  20. CONST PREVER3      = 126
  21. CONST WELCNET      = 127
  22. CONST OLEOPTN      = 123
  23. CONST CMS          = 131
  24. CONST FULLINSTM    = 134
  25. CONST PREVER4      = 119
  26. CONST LICENSE      = 130
  27. CONST ASKQUIT      = 200
  28. CONST DESTPATH     = 300
  29. CONST EXITFAILURE  = 400
  30. CONST EXITQUIT     = 600
  31. CONST EXITSUCCESS  = 700
  32. CONST OPTIONS      = 800
  33. CONST APPHELP      = 900
  34. CONST EXITWIN      = 1000
  35. CONST BILL1        = 114
  36. CONST WAIT        = 5000
  37. CONST MULTILIST    = 5200
  38. CONST INSTMENU     = 122
  39. CONST INSTMENUEXP  = 6200
  40. CONST TOOBIG       = 6300
  41. CONST BADPATH      = 6400
  42. CONST CDGETNAMEORG = 7500
  43. CONST CDCONFIRMINFO= 7300
  44. CONST LAWS         = 7100
  45.  
  46. ''Bitmap ID
  47. CONST LOGO         = 1
  48.  
  49. ''File Types
  50. CONST APPFILES     = 1
  51. CONST EFCTFILES    = 2
  52. CONST TUTFILES     = 3
  53. CONST IMPORTFILES  = 4
  54. CONST HELPFILES    = 5
  55. CONST SCANFILES    = 6
  56. CONST TEXTFILES    = 7
  57.  
  58. GLOBAL WINDRIVE$    ''Windows drive letter.
  59. GLOBAL WINDIRECT$
  60. GLOBAL SYSTEMDIRECT$
  61.  
  62. ''CustInst list symbol names
  63. GLOBAL FULLNEEDS$
  64. GLOBAL APPNEEDS$    ''Option list costs per drive
  65. GLOBAL TEXTNEEDS$
  66. GLOBAL IMPORTNEEDS$
  67. GLOBAL TUTNEEDS$
  68. GLOBAL HELPNEEDS$
  69. GLOBAL SCANNEEDS$
  70. GLOBAL EFCTNEEDS$
  71.  
  72. GLOBAL EXTRACOSTS$  ''List of extra costs to add per drive
  73.  
  74. GLOBAL PICTPUB$     ''Picture Publisher 5.0 Destination directories.
  75. GLOBAL ALBUM$
  76. GLOBAL BRUSH$
  77. GLOBAL CLIPBIT$
  78. GLOBAL DBF$
  79. GLOBAL DEVICE$
  80. GLOBAL EFFECT$
  81. GLOBAL MACRO$
  82. GLOBAL PALETTE$
  83. GLOBAL PRINTSTY$
  84. GLOBAL SAMPLE$
  85. GLOBAL TEXTURE$
  86. GLOBAL THUMB$
  87. GLOBAL TUTORIAL$
  88. GLOBAL FILTER$
  89. GLOBAL PICTPUBOLE$
  90. GLOBAL TooManyFiles%
  91. GLOBAL PICTPUBCK50$
  92. GLOBAL Texist$
  93.  
  94. ''Dialog list symbol names
  95. GLOBAL CHECKSTATES$
  96. GLOBAL STATUSTEXT$
  97. GLOBAL DRIVETEXT$
  98. GLOBAL CUSTID$
  99. GLOBAL ORGID$
  100.  
  101.  
  102. ''Subroutines and fuctions
  103. DECLARE SUB AddOptFilesToCopyList (ftype%)
  104. DECLARE SUB RecalcOptFiles (ftype%)
  105. DECLARE SUB RecalcPath
  106. DECLARE SUB SetDriveStatus
  107. DECLARE SUB CDOL
  108. DECLARE SUB CreatePPIE
  109.  
  110. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  111. DECLARE FUNCTION HandleDBF LIB "INIUPD.DLL" (szDBFFile$, szFileDir$, szThumbDir$) AS INTEGER
  112.  
  113.  
  114. INIT:
  115.     CUIDLL$ = "mscuistf.dll"            ''custom user interface dll
  116.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  117.  
  118.     MaximizeFrame
  119.     SetBitmap CUIDLL$, LOGO
  120.     SetTitle "Setup"
  121.     exist%=0
  122.  
  123.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  124.     IF szInf$ = "" THEN
  125.         szInf$ = GetSymbolValue("STF_CWDDIR") + "PPSETUP.INF"
  126.     END IF
  127.     ReadInfFile szInf$
  128.  
  129.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  130.  
  131.     WINDIRECT$ = GetWindowsDir
  132.  
  133.     SYSTEMDIRECT$ = GetWindowsSysDir
  134.  
  135.     MGXini$ = MakePath(WINDIRECT$, "MGX.INI")
  136.     'Check previously installed
  137.  
  138.  
  139.     IF DoesIniKeyExist (MGXini$, "Micrografx", "Picture Publisher 5.0")  THEN
  140.     PICTPUB$=GetIniKeyString (MGXini$, "Micrografx", "Picture Publisher 5.0")
  141.     PICTPUBCK50$ = PICTPUB$
  142.     ELSEIF DoesIniKeyExist (WINDIRECT$+"WIN.INI", "Micrografx", "Picture Publisher 4.0") THEN
  143.     PICTPUB$=GetIniKeyString (WINDIRECT$+"WIN.INI", "Micrografx", "Picture Publisher 4.0")
  144.     PICTPUBCK$ = PICTPUB$   'For removing old file names
  145.     exist%=1
  146.     ELSE
  147.     PICTPUB$ = WINDRIVE$ + ":\PICTPUB5"
  148.     ENDIF
  149.  
  150.  
  151.     ''CustInst list symbols
  152.     CHECKSTATES$ = "CheckItemsState"
  153.     STATUSTEXT$  = "StatusItemsText"
  154.     DRIVETEXT$   = "DriveStatusText"
  155.  
  156.      FOR i% = 1 TO 6 STEP 1
  157.         AddListItem CHECKSTATES$, "ON"
  158.     NEXT i%
  159.  
  160.  
  161.     FOR i% = 1 TO 6 STEP 1
  162.         AddListItem STATUSTEXT$, ""
  163.     NEXT i%
  164.     FOR i% = 1 TO 7 STEP 1
  165.         AddListItem DRIVETEXT$, ""
  166.     NEXT i%
  167.  
  168.  
  169.     ''Disk cost list symbols
  170.     APPNEEDS$   = "AN"
  171.     IMPORTNEEDS$= "IN"
  172.     TEXTNEEDS$  = "TN"
  173.     TUTNEEDS$   = "TTN"
  174.     HELPNEEDS$  = "HN"
  175.     SCANNEEDS$  = "SN"
  176.     EFCTNEEDS$  = "EN"
  177.  
  178.     EXTRACOSTS$ = "ExtraCosts"
  179.  
  180.     FOR i% = 1 TO 26 STEP 1
  181.         AddListItem EXTRACOSTS$, "0"
  182.     NEXT i%
  183.     ReplaceListItem DRIVETEXT$, 7, PICTPUB$
  184.  
  185. '$IFDEF DEBUG
  186.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  187. '$ENDIF ''DEBUG
  188.  
  189.  
  190.  
  191. 'GOTO JUMP
  192. '*************************************************************************
  193. WELCOME:
  194. sz$ = UIStartDlg(CUIDLL$, WELCNET, "FInfoDlgProc", APPHELP, HELPPROC$)
  195.     IF sz$ = "CONTINUE" THEN
  196.         UIPop 1
  197.     ELSE
  198.         GOSUB ASKQUIT
  199.         GOTO WELCOME
  200.     END IF
  201.  
  202.  
  203. '*************************************************************************
  204. LICENSE:
  205.     sz$ = UIStartDlg(CUIDLL$, LAWS, "FInfoDlgProc", LICENSE, HELPPROC$)
  206.     IF sz$ = "CONTINUE" THEN
  207.         UIPop 1
  208.     ELSE
  209.         GOSUB ASKQUIT
  210.         GOTO LICENSE
  211.     END IF
  212.  
  213. '*************************************************************************
  214.  
  215. orgnamedlg:
  216.  
  217.     '' Obtain name and organization information
  218.     SetSymbolValue "CUSTNAME", custname$
  219.     SetSymbolValue "ORGNAME", orgname$
  220.  
  221.     result$=UIStartDlg ("mscuistf.dll", CDGETNAMEORG, "FNameOrgDlgProc", APPHELP, HELPPROC$)
  222.     if result$="CONTINUE" then
  223.         UIPop 1
  224.     ELSEIF sz$ = "REACTIVATE" THEN
  225.     GOTO orgnamedlg
  226.     else
  227.         UIPop 1
  228.         GOSUB ASKQUIT
  229.         GOTO orgnamedlg
  230.     end if
  231.     custname$=GetSymbolValue ("NameOut")
  232.     orgname$=GetSymbolValue ("OrgOut")
  233.     CUSTID$=custname$
  234.     ORGID$=orgname$
  235.  
  236.     '' Display confirmation dialog
  237.     SetSymbolValue "ConfirmTextIn", ""
  238.     AddListItem "ConfirmTextIn", custname$
  239.     AddListItem "ConfirmTextIn", orgname$
  240.     result$=UIStartDlg ("mscuistf.dll", CDCONFIRMINFO, "FConfirmDlgProc", APPHELP, HELPPROC$)
  241.     UIPop 1
  242.     if result$="BACK" then
  243.         goto orgnamedlg
  244.     end if
  245.     SetSymbolValue "ConfirmTextIn", ""
  246.     custname$ = ""
  247.     orgname$  = ""
  248.     SetSymbolValue "CUSTNAME", ""
  249.     SetSymbolValue "ORGNAME", ""
  250.  
  251.  
  252.  
  253. GOTO PREV
  254. JUMP:
  255.  
  256.  
  257.     sz$ = UIStartDlg(CUIDLL$, EXPRESSOPT, "FRadioDlgProc", APPHELP, HELPPROC$)
  258.         OPTCUR$ = GetSymbolValue("ButtonChecked")
  259.  
  260.         IF sz$ = "CONTINUE"  THEN
  261.         UIPop 1
  262.             IF OPTCUR$ = "1" THEN
  263.             FULLEXIST$ = "ON"
  264.             GOTO PREV
  265.  
  266.             ELSEIF  OPTCUR$ = "2" THEN
  267.             GOTO INSTMENU
  268.  
  269.             ELSEIF  OPTCUR$ = "3" THEN
  270.  
  271.  
  272.             ENDIF
  273.  
  274.         ELSEIF sz$ = "REACTIVATE"  THEN
  275.             GOTO JUMP
  276.         ELSE
  277.             UIPop 1
  278.             GOSUB ASKQUIT
  279.             GOTO JUMP
  280.         ENDIF
  281.  
  282.  
  283. '*************************************************************************
  284. PREV:
  285.  
  286.     IF exist% THEN
  287.         sz$ = UIStartDlg(CUIDLL$, PREVER4, "FInfoDlgProc", APPHELP, HELPPROC$)
  288.         IF sz$ = "CONTINUE" THEN
  289.  
  290.         UIPop 1
  291.  
  292.             ELSE
  293.  
  294.             UIPop 1
  295.             GOSUB ASKQUIT
  296.             GOTO PREV
  297.         ENDIF
  298.      ENDIF
  299. '*************************************************************************
  300.  
  301.  sz$ = UIStartDlg(CUIDLL$, WAIT, "FModelessDlgProc", APPHELP, HELPPROC$)
  302.  RecalcPath
  303.  SetDriveStatus
  304.  UIPop 1
  305. INSTMENU:
  306.     sz$ = UIStartDlg(CUIDLL$, INSTMENU, "FCustInstDlgProc", CUSTHELP, HELPPROC$)
  307.  
  308.     IF sz$ = "CONTINUE" THEN
  309.         ''Install only if it will fit.
  310.         IF TooManyFiles% THEN
  311.             UIPop 1
  312.             GOSUB TOOBIG
  313.             GOTO INSTMENU
  314.  
  315.         END IF
  316.         UIPop 1
  317.         GOTO INSTALL
  318.  
  319.  
  320.     ELSEIF sz$ = "PATH" THEN
  321.         UIPop 1
  322.         GOTO GETPATH
  323.  
  324.     ELSEIF sz$ = "CHK1" THEN
  325.         RecalcOptFiles APPFILES
  326.         SetDriveStatus
  327.         GOTO INSTMENU
  328.  
  329.     ELSEIF sz$ = "CHK2" THEN
  330.         RecalcOptFiles EFCTFILES
  331.         SetDriveStatus
  332.         GOTO INSTMENU
  333.  
  334.     ELSEIF sz$ = "CHK3" THEN
  335.         RecalcOptFiles TUTFILES
  336.         SetDriveStatus
  337.         GOTO INSTMENU
  338.  
  339.     ELSEIF sz$ = "CHK4" THEN
  340.         RecalcOptFiles IMPORTFILES
  341.         SetDriveStatus
  342.         GOTO INSTMENU
  343.  
  344.     ELSEIF sz$ = "CHK5" THEN
  345.         RecalcOptFiles HELPFILES
  346.         SetDriveStatus
  347.         GOTO INSTMENU
  348.  
  349.     ELSEIF sz$ = "REACTIVATE" THEN
  350.         RecalcPath
  351.         SetDriveStatus
  352.         GOTO INSTMENU
  353.     ELSE
  354.         UIPop 1
  355.         GOSUB ASKQUIT
  356.         GOTO INSTMENU
  357.     END IF
  358.  
  359.  
  360. '*************************************************************************
  361. '*************************************************************************
  362. INSTALL:
  363.     sz$ = UIStartDlg(CUIDLL$, WAIT, "FModelessDlgProc", APPHELP, HELPPROC$)
  364.     ClearCopyList
  365.  
  366. FULLNEEDS$   = ""
  367. APPNEEDS$    = ""
  368. TEXTNEEDS$   = ""
  369. IMPORTNEEDS$ = ""
  370. TUTNEEDS$    = ""
  371. HELPNEEDS$   = ""
  372. SCANNEEDS$   = ""
  373. EFCTNEEDS$   = ""
  374. EXTRACOSTS$  = ""
  375. STATUSTEXT$  = ""
  376. DRIVETEXT$   = ""
  377.  
  378.     PICTPUBOLE$ = PICTPUB$ +"\PP50.EXE"   'Creates full path for PP5.0 OLE working directories
  379.  
  380.     CreateDir PICTPUB$, cmoNone
  381.     CDOL
  382.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  383.     SrcFileDir$ = MakePath (SrcDir$, "")
  384.     ini$ = MakePath(PICTPUB$, "NAMES.INI")
  385.  
  386. IF IsWindowsShared <> 1 THEN
  387.           CreateRegProc
  388.           CreateRegKeyValue "PictPub.Image\shell\open\command", " " + PICTPUBOLE$ + " %1"
  389.                'OLE 1.0 Compatibility Entries in REG.DAT
  390.           CreateRegKeyValue "PictPub.Image\protocol\StdFileEditing\server", " " + PICTPUBOLE$ + " %1"
  391.                 'OLE 2.0 Entries
  392.           CreateRegKeyValue "CLSID\{BC7A9620-3913-101B-9649-020080A38E74}\DefaultIcon",  PICTPUBOLE$
  393.           CreateRegKeyValue "CLSID\{BC7A9620-3913-101B-9649-020080A38E74}\LocalServer",  PICTPUBOLE$
  394.  
  395.     exist% = DoesRegKeyExist ("BitmapImage")   'Detect previous OLE version
  396.     UIPop 1
  397.     IF exist% THEN
  398. OLEREG:
  399.     sz$ = UIStartDlg(CUIDLL$, OLEOPTN, "FRadioDlgProc", APPHELP, HELPPROC$)
  400.         OPTCUR$ = GetSymbolValue("ButtonChecked")
  401.         szName$= "CLSID\{000440EE-0000-0000-C000-000000000046}"
  402.         IF sz$ = "CONTINUE"  THEN
  403.         UIPop 1
  404.             IF OPTCUR$ = "1" THEN
  405.  
  406.                 exist% = DoesRegKeyExist (szName$)
  407.                 IF exist% THEN
  408.                 DeleteRegKey szName$+"\TreatAs"
  409.                 CreateRegKeyValue szName$+"\AutoConvertTo","{BC7A9620-3913-101B-9649-020080A38E74}"
  410.                 ENDIF
  411.  
  412.             ELSEIF  OPTCUR$ = "2" THEN
  413.  
  414.                 exist% = DoesRegKeyExist (szName$)
  415.                 IF exist% THEN
  416.                 DeleteRegKey szName$+"\AutoConvertTo"
  417.                 CreateRegKeyValue szName$+"\TreatAs","{BC7A9620-3913-101B-9649-020080A38E74}"
  418.                 ENDIF
  419.  
  420.             ELSEIF  OPTCUR$ = "3" THEN
  421.  
  422.                 exist% = DoesRegKeyExist (szName$)
  423.                 IF exist% THEN
  424.                 DeleteRegKey szName$+"\AutoConvertTo"
  425.                 DeleteRegKey szName$+"\TreatAs"
  426.                 ENDIF
  427.             ELSE
  428.                 UIPop 1
  429.                 GOTO OLEREG
  430.             ENDIF
  431.  
  432.         ELSEIF sz$ = "REACTIVATE"  THEN
  433.             GOTO OLEREG
  434.         ELSE
  435.             UIPop 1
  436.             GOSUB ASKQUIT
  437.             GOTO OLEREG
  438.         ENDIF
  439.     ENDIF
  440. ENDIF        'IF Windows shared
  441. szName$=""
  442.     IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
  443.  
  444.             IF IsWindowsShared <> 1 THEN
  445.             AddSectionFilesToCopyList "OLE", SrcFileDir$, WINDIRECT$+"SYSTEM"
  446.             AddSectionFilesToCopyList "OLE", SrcFileDir$, PICTPUB$
  447.             ENDIF
  448.             AddSectionFilesToCopyList "AppFiles", SrcFileDir$, PICTPUB$
  449.             AddSectionFilesToCopyList "Files", SrcFileDir$, PICTPUB$
  450.             AddSectionFilesToCopyList "MainIni", SrcFileDir$, PICTPUB$
  451.             AddSectionFilesToCopyList "SetupNet", SrcFileDir$, PICTPUB$
  452.             AddSectionFilesToCopyList "THUMBSCD", SrcFileDir$, PICTPUB$
  453.             AddSectionFilestoCopyList "Macros", SrcFileDir$, MACRO$
  454.  
  455.             AddSectionFilestoCopyList "PrintStyles", SrcFileDir$, PRINTSTY$
  456.             AddSectionFilestoCopyList "Palettes", SrcFileDir$, PALETTE$
  457.  
  458.             AddSectionFilestoCopyList "DefaultTextures", SrcFileDir$, TEXTURE$
  459.             AddSectionFilestoCopyList "DefaultTextureBrush", SrcFileDir$, BRUSH$
  460.             AddSectionFilestoCopyList "Brushes", SrcFileDir$, BRUSH$
  461.             AddSectionFilesToCopyList "MustTutorial", SrcFileDir$, TUTORIAL$
  462.             AddSectionFilestoCopyList "Thumbs", SrcFileDir$, THUMB$
  463.             Texist$="ON"
  464.             AddSectionFilestoCopyList "Clipbits", SrcFileDir$, CLIPBIT$
  465.             UIPop 1
  466.             sz$ = UIStartDlg(CUIDLL$, WAIT, "FModelessDlgProc", APPHELP, HELPPROC$)
  467.  
  468.             CreateIniKeyValue ini$, "Clipboard", "Logo", "Logo.pp5", cmoNone
  469.             CreateOptStyleNamesEntries(ini$)
  470.             CreateOptPaletteNamesEntries(ini$)
  471.             CreateDTextrNamesIni(ini$)
  472.             CreatePPINIKeyEntries (PICTPUB$+"\pp.ini")
  473.             CreatePrintStyNamesEntries(ini$)
  474.  
  475.             IF PICTPUBCK$ = PICTPUB$ THEN
  476.                 RemoveFile PICTPUBCK$+"\mgxrx101.dll", cmoNone
  477.                 RemoveFile PICTPUBCK$+"\PP40.exe", cmoNone
  478.                 RemoveFile PICTPUBCK$+"\effects\reduce.dfx", cmoNone
  479.                 RemoveIniSection ini$, "Special", cmoNone
  480.                 RemoveIniSection ini$, "Macro", cmoNone      'remove conflicting macros
  481.             ENDIF
  482.  
  483.  
  484.     ENDIF
  485.  
  486.     IF GetListItem(CHECKSTATES$, IMPORTFILES) = "ON"  THEN
  487.             AddSectionFilestoCopyList "FilterAppFiles", SrcFileDir$, PICTPUB$
  488.             AddSectionFilestoCopyList "FiltersIni", SrcFileDir$, FILTER$
  489.             AddSectionFilesToCopyList "Filters", SrcFileDir$, FILTER$
  490.     ENDIF
  491.  
  492.     IF GetListItem(CHECKSTATES$, TUTFILES) = "ON"  THEN
  493.             AddSectionFilestoCopyList "Tutorial", SrcFileDir$, TUTORIAL$
  494.     ENDIF
  495.  
  496.     IF GetListItem(CHECKSTATES$, HELPFILES) = "ON"  THEN
  497.             AddSectionFilestoCopyList "HelpFile1", SrcFileDir$, PICTPUB$
  498.             AddSectionFilestoCopyList "HelpFile2", SrcFileDir$, PICTPUB$
  499.             SCANHELP$="ON"
  500.     ENDIF
  501.  
  502.         IF GetListItem(CHECKSTATES$, EFCTFILES) = "ON" THEN
  503.            AddSectionFilestoCopyList "Effects", SrcFileDir$, EFFECT$
  504.            RemoveIniSection ini$, "Special", cmoNone
  505.            CreateOptFXNamesEntries(ini$)
  506.         END IF
  507.  
  508.           RemoveIniKey       WINDIRECT$+"MGX.INI", "Micrografx", "PP.INI" , cmoNone
  509.           CreateIniKeyValue  WINDIRECT$+"MGX.INI", "Micrografx", "Picture Publisher 5.0", PICTPUB$, cmoOverwrite
  510.           CreateIniKeyValue  WINDIRECT$+"MGX.INI", "Picture Publisher 5.0", "Warning", "0", cmoOverwrite
  511.           UIPop 1
  512.           szInf$ = ""
  513.           CopyFilesInCopyList
  514.  
  515. QUIT:
  516.     ON ERROR GOTO ERRQUIT
  517.  
  518.     IF ERR = 0 THEN
  519.         dlg% = NETSUCCESS
  520.     ELSE
  521.     UIPop 1
  522.         dlg% = EXITQUIT
  523.     END IF
  524.  
  525.     IF dlg% = NETSUCCESS THEN
  526.        IF IsWindowsShared <> 1 THEN
  527.           RUN "Regedit /S OLE2.REG"
  528.        ENDIF
  529. around:
  530.  
  531.           sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  532.             IF sz$ = "CONTINUE" THEN
  533.                 UIPop 1
  534.             ELSE
  535.                 GOTO around
  536.             ENDIF
  537.  
  538.           CreatePPIE
  539.           ini$ = MakePath(PICTPUB$, "PP.INI")
  540.           CreateProgmanGroup "Micrografx", "", cmoNone
  541.           ShowProgmanGroup  "Micrografx", 1, cmoNone
  542.           IF Texist$="ON"  THEN
  543.           CreateProgmanItem "Micrografx ", "Picture Publisher 5.0", ""+MakePath(PICTPUB$,"PP50.EXE"), "", cmoOverwrite
  544.           ENDIF
  545.           IF SCANHELP$="ON" THEN
  546.           CreateProgmanItem "Micrografx", "Scanner Installation Help", "winhelp.exe "+MakePath(PICTPUB$,"PP_SCAN.HLP"), "", cmoOverwrite
  547.           CreateProgmanItem "Micrografx", "Network Installation Help", "winhelp.exe "+MakePath(PICTPUB$,"network.HLP"), "", cmoOverwrite
  548.           ENDIF
  549.           CreateIniKeyValue ini$, "Picture Publisher", "User", CUSTID$, cmoOverwrite
  550.           CreateIniKeyValue ini$, "Picture Publisher", "Company", ORGID$, cmoOverwrite
  551.           CreateIniKeyValue ini$, "Picture Publisher", "SN", "ADMN9649-020080A38E74", cmoOverwrite
  552.    ENDIF
  553. GOTO ENDIT         '
  554.  
  555.  
  556. QUITL1:
  557.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  558.  
  559.     IF sz$ = "REACTIVATE" THEN
  560.         GOTO QUITL1
  561.     END IF
  562.  
  563.     UIPop 1
  564. ENDIT:
  565.    END
  566.  
  567. ERRQUIT:
  568.     i% = DoMsgBox("Setup file failure. Report to Tech Support 214-497-6495", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  569.     END
  570.  
  571. '*************************************************************************
  572.  
  573. '*************************************************************************
  574. SUB CreatePPIE STATIC
  575.  
  576. ini$ = MakePath(PICTPUB$, "PP.INI")
  577. szName$="Picture Publisher"
  578.     CreateIniKeyValue ini$, szName$, "Device", DEVICE$, cmoNone
  579.     CreateIniKeyValue ini$, szName$, "Texture", TEXTURE$, cmoNone
  580.     CreateIniKeyValue ini$, szName$, "Palette", PALETTE$, cmoNone
  581.     CreateIniKeyValue ini$, szName$, "Effects", EFFECT$, cmoNone
  582.     CreateIniKeyValue ini$, szName$, "PrnStyle", PRINTSTY$, cmoNone
  583.     CreateIniKeyValue ini$, szName$, "Brush", BRUSH$, cmoNone
  584.     CreateIniKeyValue ini$, szName$, "ClipBit", CLIPBIT$, cmoNone
  585.     CreateIniKeyValue ini$, szName$, "Shapepath", CLIPBIT$, cmoNone
  586.     CreateIniKeyValue ini$, szName$, "Macros", MACRO$, cmoNone
  587.     CreateIniKeyValue ini$, szName$, "ThumbnailDir", THUMB$, cmoNone
  588.     CreateIniKeyValue ini$, szName$, "DBFInfoDir", THUMB$, cmoNone
  589.     CreateIniKeyValue ini$, szName$, "AlbumFileDir", ALBUM$, cmoNone
  590.     CreateIniKeyValue ini$, szName$, "Filters", FILTER$, cmoNone
  591.     CreateIniKeyValue ini$, szName$, "Pouchpath", PICTPUB$, cmoNone
  592.     CreateIniKeyValue ini$, szName$, "RamDisk", PICTPUB$, cmoNone
  593.  
  594.  
  595. IF Texist$="ON"  THEN
  596.  
  597.  
  598.  
  599.     szDBF$ = MakePath (THUMB$, "__HTUTR.DBF")
  600.     IF HandleDBF (szDBF$, TUTORIAL$, THUMB$) THEN
  601.     END IF
  602.  
  603.     szDBF$ = MakePath (THUMB$, "__HOME.DBF")
  604.     IF HandleDBF (szDBF$, PICTPUB$, THUMB$) THEN
  605.     END IF
  606.  
  607.     szDBF$ = MakePath (THUMB$, "__CLIPBT.DBF")
  608.     IF HandleDBF (szDBF$, CLIPBIT$, THUMB$) THEN
  609.     END IF
  610. ENDIF
  611.  
  612. END SUB
  613.  
  614. '*************************************************************************
  615. SUB CDOL STATIC
  616. szName$="Picture Publisher"
  617.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  618.  
  619.     SrcFileDir$ = MakePath (SrcDir$, "")
  620.  
  621.     ini$ = MakePath(PICTPUB$, "PP.INI")
  622.  
  623.     DEVICE$ = GetIniKeyString (ini$, szName$, "Device")
  624.     IF DEVICE$ = "" THEN
  625.         DEVICE$ = MakePath (PICTPUB$, "DEVICES")
  626.         CreateDir DEVICE$, cmoNone
  627.     END IF
  628.  
  629.     ALBUM$ = GetIniKeyString (ini$, szName$, "AlbumFileDir")
  630.     IF ALBUM$ = "" THEN
  631.         ALBUM$ = MakePath (PICTPUB$, "ALBUMS")
  632.         CreateDir ALBUM$, cmoNone
  633.     END IF
  634.  
  635.     BRUSH$ = GetIniKeyString (ini$, szName$, "Brush")
  636.     IF BRUSH$ = "" THEN
  637.         BRUSH$ = MakePath (PICTPUB$, "BRUSHES")
  638.         CreateDir BRUSH$, cmoNone
  639.     END IF
  640.  
  641.     CLIPBIT$ = GetIniKeyString (ini$, szName$, "ClipBits")
  642.     IF CLIPBIT$ = "" THEN
  643.         CLIPBIT$ = MakePath (PICTPUB$, "CLIPBITS")
  644.         CreateDir CLIPBIT$, cmoNone
  645.     END IF
  646.  
  647.     THUMB$ = GetIniKeyString (ini$, szName$, "DBFInfoDir")
  648.     IF THUMB$ = "" THEN
  649.         THUMB$ = MakePath (PICTPUB$, "THUMBS")
  650.         CreateDir THUMB$, cmoNone
  651.     END IF
  652.  
  653.     EFFECT$ = GetIniKeyString (ini$, szName$, "Effects")
  654.     IF EFFECT$ = "" THEN
  655.         EFFECT$ = MakePath (PICTPUB$, "EFFECTS")
  656.         CreateDir EFFECT$, cmoNone
  657.     END IF
  658.  
  659.     MACRO$ = GetIniKeyString (ini$, szName$, "Macros")
  660.     IF MACRO$ = "" THEN
  661.         MACRO$ = MakePath (PICTPUB$, "MACROS")
  662.         CreateDir MACRO$, cmoNone
  663.     END IF
  664.  
  665.     PALETTE$ = GetIniKeyString (ini$, szName$, "Palette")
  666.     IF PALETTE$ = "" THEN
  667.         PALETTE$ = MakePath (PICTPUB$, "PALETTES")
  668.         CreateDir PALETTE$, cmoNone
  669.     END IF
  670.  
  671.     PRINTSTY$ = GetIniKeyString (ini$, szName$, "PrnStyle")
  672.     IF PRINTSTY$ = "" THEN
  673.         PRINTSTY$ = MakePath (PICTPUB$, "PRINTSTY")
  674.         CreateDir PRINTSTY$, cmoNone
  675.     END IF
  676.  
  677.     TEXTURE$ = GetIniKeyString (ini$, szName$, "Texture")
  678.     IF TEXTURE$ = "" THEN
  679.         TEXTURE$ = MakePath (PICTPUB$, "TEXTURES")
  680.         CreateDir TEXTURE$, cmoNone
  681.     END IF
  682.  
  683.     DBF$ = GetIniKeyString (ini$, szName$, "DBFInfoDir")
  684.     IF DBF$ = "" THEN
  685.         DBF$ = MakePath (PICTPUB$, "THUMBS")
  686.     END IF
  687.  
  688.     THUMB$ = GetIniKeyString (ini$, szName$, "ThumbnailDir")
  689.     IF THUMB$ = "" THEN
  690.         THUMB$ = MakePath (PICTPUB$, "THUMBS")
  691.         CreateDir THUMB$, cmoNone
  692.     END IF
  693.  
  694.     FILTER$ = GetIniKeyString (ini$, szName$, "Filters")
  695.     IF FILTER$ = "" THEN
  696.         FILTER$ = MakePath (PICTPUB$, "FILTERS")
  697.         CreateDir FILTER$, cmoNone
  698.     END IF
  699.  
  700.     TUTORIAL$ = GetIniKeyString (ini$, szName$, "Tutorial")
  701.     IF TUTORIAL = "" THEN
  702.         TUTORIAL = MakePath (PICTPUB$, "TUTORIAL")
  703.         CreateDir TUTORIAL$, cmoNone
  704.     END IF
  705.  
  706. END SUB
  707.  
  708.  
  709. '*************************************************************************
  710. GETPATH:
  711.     SetSymbolValue "EditTextIn", PICTPUB$
  712.     SetSymbolValue "EditFocus", "END"
  713. GETPATHL1:
  714.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  715.  
  716.     IF sz$ = "CONTINUE" THEN
  717.         oldPICTPUB$ = PICTPUB$
  718.         PICTPUB$ = GetSymbolValue("EditTextOut")
  719.  
  720.         ''Validate new path.
  721.         IF IsDirWritable(PICTPUB$) = 0 THEN
  722.             GOSUB BADPATH
  723.             GOTO GETPATHL1
  724.         END IF
  725.         UIPop 1
  726.  
  727.  
  728.         ''Truncate display if too long.
  729.         IF LEN(PICTPUB$) > 40 THEN
  730.             ReplaceListItem DRIVETEXT$, 7, MID$(PICTPUB$, 1, 40)+"..."
  731.         ELSE
  732.             ReplaceListItem DRIVETEXT$, 7, PICTPUB$
  733.         END IF
  734.  
  735.         ''Recalc if path changed.
  736.         IF (oldPICTPUB$ <> PICTPUB$) AND (oldPICTPUB$ <> PICTPUB$+"\") AND (oldPICTPUB$+"\" <> PICTPUB$) THEN
  737.             sz$ = UIStartDlg(CUIDLL$, WAIT, "FModelessDlgProc", APPHELP, HELPPROC$)
  738.             RecalcPath
  739.             SetDriveStatus
  740.             UIPop 1
  741.         END IF
  742.  
  743.         oldPICTPUB$ = ""
  744.  
  745.         GOTO INSTMENU
  746.     ELSEIF sz$ = "REACTIVATE" THEN
  747.         RecalcPath
  748.         SetDriveStatus
  749.         GOTO GETPATHL1
  750.     ELSEIF sz$ = "EXIT" THEN
  751.         GOSUB ASKQUIT
  752.         GOTO GETPATHL1
  753.     ELSE
  754.         UIPop 1
  755.         GOTO INSTMENU
  756.     END IF
  757.  
  758.  
  759. '*************************************************************************
  760. TOOBIG:
  761.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  762.     IF sz$ = "REACTIVATE" THEN
  763.         RecalcPath
  764.         SetDriveStatus
  765.         GOTO TOOBIG
  766.     END IF
  767.     UIPop 1
  768.     RETURN
  769.  
  770.  
  771. '*************************************************************************
  772. BADPATH:
  773.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  774.     IF sz$ = "REACTIVATE" THEN
  775.         RecalcPath
  776.         SetDriveStatus
  777.         GOTO BADPATH
  778.     END IF
  779.     UIPop 1
  780.     RETURN
  781.  
  782.  
  783. '*************************************************************************
  784. ASKQUIT:
  785.     UIPop 1
  786.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  787.  
  788.     IF sz$ = "EXIT" THEN
  789.         UIPopAll
  790.         ERROR STFQUIT
  791.     ELSEIF sz$ = "REACTIVATE" THEN
  792.         GOTO ASKQUIT
  793.     ELSE
  794.         UIPop 1
  795.     END IF
  796.     RETURN
  797.  
  798. '*************************************************************************
  799. SUB RecalcOptFiles (ftype%) STATIC
  800.     CursorSave% = ShowWaitCursor()
  801.     ClearCopyList
  802.     AddOptFilesToCopyList ftype%
  803.  
  804.     fExtra% = 0
  805.     IF ftype% = APPFILES THEN
  806.         ListSym$ = APPNEEDS$
  807.         IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
  808.             ''Add extra cost to Windows drive for ini/progman, etc.
  809.             ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  810.             ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  811.             fExtra% = 1
  812.         END IF
  813.  
  814.     ELSEIF ftype% = TUTFILES THEN
  815.         ListSym$ = TUTNEEDS$
  816.  
  817.     ELSEIF ftype% = IMPORTFILES THEN
  818.         ListSym$ = IMPORTNEEDS$
  819.  
  820.     ELSEIF ftype% = HELPFILES THEN
  821.         ListSym$ = HELPNEEDS$
  822.  
  823.     ELSEIF ftype% = EFCTFILES THEN
  824.         ListSym$ = EFCTNEEDS$
  825.     END IF
  826.  
  827.     StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "needmore")
  828.     cost& = 0
  829.     FOR i% = 1 TO 26 STEP 1
  830.         cost&  = cost& + VAL(GetListItem(ListSym$, i%))
  831.         IF VAL(GetListItem("needmore", i%)) > 0 THEN
  832.  
  833.         ELSE
  834.  
  835.         END IF
  836.     NEXT i%
  837.     ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K"
  838.  
  839.     IF fExtra% THEN
  840.         ReplaceListItem EXTRACOSTS$, ndrive%, "0"
  841.     END IF
  842.     RestoreCursor CursorSave%
  843.     ListSym$ = ""
  844.  
  845. END SUB
  846.  
  847. '*************************************************************************
  848. SUB RecalcPath STATIC
  849.  
  850.     CursorSave% = ShowWaitCursor()
  851.  
  852.     RecalcOptFiles (APPFILES)
  853.     RecalcOptFiles (IMPORTFILES)
  854.     RecalcOptFiles (HELPFILES)
  855.     RecalcOptFiles (EFCTFILES )
  856.     RecalcOptFiles (TUTFILES)
  857.  
  858.     RestoreCursor CursorSave%
  859.  
  860. END SUB
  861.  
  862. '*************************************************************************
  863. SUB SetDriveStatus STATIC
  864.  
  865.     TooManyFiles% = 0
  866.     drive$ = MID$(PICTPUB$, 1, 1)
  867.     ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
  868.     cost1& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(IMPORTNEEDS$, ndrive%)) ' + VAL(GetListItem(TEXTNEEDS$, ndrive%))
  869.     cost2& = VAL(GetListItem(TUTNEEDS$, ndrive%)) + VAL(GetListItem(EFCTNEEDS$, ndrive%)) + VAL(GetListItem(HELPNEEDS$, ndrive%))
  870.     cost& = cost1& + cost2&
  871.     free& = GetFreeSpaceForDrive(drive$)
  872.     ReplaceListItem DRIVETEXT$, 1, ucase$(drive$) + ":"
  873.     ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + " K"
  874.     ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + " K"
  875.     IF cost& > free& THEN
  876.         TooManyFiles% = 1
  877.     END IF
  878.  
  879.     IF drive$ = WINDRIVE$ THEN
  880.         ReplaceListItem DRIVETEXT$, 4, ""
  881.         ReplaceListItem DRIVETEXT$, 5, ""
  882.         ReplaceListItem DRIVETEXT$, 6, ""
  883.     ELSE
  884.         ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  885.     cost1& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(IMPORTNEEDS$, ndrive%)) ' + VAL(GetListItem(TEXTNEEDS$, ndrive%))
  886.     cost2& = VAL(GetListItem(TUTNEEDS$, ndrive%)) + VAL(GetListItem(EFCTNEEDS$, ndrive%)) + VAL(GetListItem(HELPNEEDS$, ndrive%))
  887.         cost& = cost1& + cost2&
  888.         IF cost& = 0 THEN
  889.             ReplaceListItem DRIVETEXT$, 4, ""
  890.             ReplaceListItem DRIVETEXT$, 5, ""
  891.             ReplaceListItem DRIVETEXT$, 6, ""
  892.         ELSE
  893.             free& = GetFreeSpaceForDrive(WINDRIVE$)
  894.             ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":"
  895.             ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + " K"
  896.             ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + " K"
  897.         END IF
  898.         IF cost& > free& THEN
  899.             TooManyFiles% = 1
  900.         END IF
  901.     END IF
  902. END SUB
  903.  
  904. '*************************************************************************
  905. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  906.     IF szDir$ = "" THEN
  907.         MakePath = szFile$
  908.     ELSEIF szFile$ = "" THEN
  909.         MakePath = szDir$
  910.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  911.         MakePath = szDir$ + szFile$
  912.     ELSE
  913.         MakePath = szDir$ + "\" + szFile$
  914.     END IF
  915. END FUNCTION
  916.  
  917. '*************************************************************************
  918.  
  919. '*************************************************************************
  920. SUB AddOptFilesToCopyList (ftype%) STATIC
  921.  
  922.  IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
  923.         SrcDir$ = GetSymbolValue("STF_SRCDIR")
  924.         SrcFileDir$ = MakePath (SrcDir$, "")
  925.  
  926.  
  927.     IF PICTPUBCK50$ <> PICTPUB$ THEN
  928.  
  929.         IF ftype% = APPFILES THEN
  930.             'For Net install
  931.             AddSectionFilesToCopyList "Files", SrcFileDir$, PICTPUB$
  932.             AddSectionFilesToCopyList "SetupNet", SrcFileDir$, PICTPUB$
  933.  
  934.  
  935.             IF IsWindowsShared <> 1 THEN
  936.             AddSectionFilesToCopyList "OLE", SrcFileDir$, WINDIRECT$+"SYSTEM"
  937.             AddSectionFilesToCopyList "OLE", SrcFileDir$, PICTPUB$
  938.             ENDIF
  939.             AddSectionFilesToCopyList "AppFiles", SrcFileDir$, PICTPUB$
  940.             AddSectionFilesToCopyList "MainIni", SrcFileDir$, PICTPUB$
  941.             AddSectionFilestoCopyList "Macros", SrcFileDir$, PICTPUB$
  942.  
  943.             AddSectionFilestoCopyList "PrintStyles", SrcFileDir$, PICTPUB$
  944.             AddSectionFilestoCopyList "Palettes", SrcFileDir$, PICTPUB$
  945.  
  946.             AddSectionFilestoCopyList "DefaultTextures", SrcFileDir$, PICTPUB$
  947.             AddSectionFilestoCopyList "DefaultTextureBrush", SrcFileDir$, PICTPUB$
  948.             AddSectionFilestoCopyList "Brushes", SrcFileDir$, PICTPUB$
  949.  
  950.             AddSectionFilesToCopyList "MustTutorial", SrcFileDir$, PICTPUB$
  951.  
  952.             AddSectionFilestoCopyList "Thumbs", SrcFileDir$, PICTPUB$
  953.             AddSectionFilestoCopyList "Clipbits", SrcFileDir$, PICTPUB$
  954.  
  955.          ENDIF
  956.  
  957.         IF ftype% = IMPORTFILES THEN
  958.             AddSectionFilestoCopyList "FilterAppFiles", SrcFileDir$, PICTPUB$
  959.             AddSectionFilestoCopyList "FiltersIni", SrcFileDir$, PICTPUB$
  960.             AddSectionFilesToCopyList "Filters", SrcFileDir$, PICTPUB$
  961.         ENDIF
  962.  
  963.         IF ftype% = TUTFILES THEN
  964.             AddSectionFilesToCopyList "Tutorial", SrcFileDir$, PICTPUB$
  965.         ENDIF
  966.  
  967.         IF ftype% = HELPFILES THEN
  968.             AddSectionFilestoCopyList "HelpFile1", SrcFileDir$, PICTPUB$
  969.             AddSectionFilestoCopyList "HelpFile2", SrcFileDir$, PICTPUB$
  970.         ENDIF
  971.  
  972.         IF ftype% = EFCTFILES THEN
  973.         AddSectionFilestoCopyList "Effects", SrcFileDir$, PICTPUB$
  974.         END IF
  975.         SrcDir$ = ""
  976.  
  977.     ELSE
  978.         IF ftype% = APPFILES THEN
  979.         'For Net install
  980.             AddSectionFilesToCopyList "Files", SrcFileDir$, PICTPUB$
  981.             AddSectionFilesToCopyList "SetupNet", SrcFileDir$, PICTPUB$
  982.  
  983.             IF IsWindowsShared <> 1 THEN
  984.             AddSectionFilesToCopyList "OLE", SrcFileDir$, WINDIRECT$+"SYSTEM"
  985.             AddSectionFilesToCopyList "OLE", SrcFileDir$, PICTPUB$
  986.             ENDIF
  987.             AddSectionFilesToCopyList "AppFiles", SrcFileDir$, PICTPUB$
  988.             AddSectionFilesToCopyList "Files", SrcFileDir$, PICTPUB$
  989.             AddSectionFilesToCopyList "MainIni", SrcFileDir$, PICTPUB$
  990.             AddSectionFilesToCopyList "SetupNet", SrcFileDir$, PICTPUB$
  991.  
  992.             AddSectionFilestoCopyList "Macros", SrcFileDir$, PICTPUB$+"\macros"
  993.  
  994.             AddSectionFilestoCopyList "PrintStyles", SrcFileDir$, PICTPUB$+"\printsty"
  995.             AddSectionFilestoCopyList "Palettes", SrcFileDir$, PICTPUB$+"\palettes"
  996.  
  997.             AddSectionFilestoCopyList "DefaultTextures", SrcFileDir$, PICTPUB$+"\textures"
  998.             AddSectionFilestoCopyList "DefaultTextureBrush", SrcFileDir$, PICTPUB$+"\brushes"
  999.             AddSectionFilestoCopyList "Brushes", SrcFileDir$, PICTPUB$+"\brushes"
  1000.  
  1001.             AddSectionFilesToCopyList "MustTutorial", SrcFileDir$, PICTPUB$+"\tutorial"
  1002.             AddSectionFilestoCopyList "Thumbs", SrcFileDir$, PICTPUB$+"\thumbs"
  1003.             AddSectionFilestoCopyList "Clipbits", SrcFileDir$, PICTPUB$+"\clipbits"
  1004.  
  1005.          ENDIF
  1006.  
  1007.         IF ftype% = IMPORTFILES THEN
  1008.             AddSectionFilestoCopyList "FilterAppFiles", SrcFileDir$, PICTPUB$
  1009.             AddSectionFilestoCopyList "FiltersIni", SrcFileDir$, PICTPUB$+"\filters"
  1010.             AddSectionFilesToCopyList "Filters", SrcFileDir$, PICTPUB$+"\filters"
  1011.         ENDIF
  1012.  
  1013.         IF ftype% = TUTFILES THEN
  1014.             AddSectionFilesToCopyList "Tutorial", SrcFileDir$, PICTPUB$+"\tutorial"
  1015.         ENDIF
  1016.  
  1017.         IF ftype% = HELPFILES THEN
  1018.             AddSectionFilestoCopyList "HelpFile1", SrcFileDir$, PICTPUB$
  1019.             AddSectionFilestoCopyList "HelpFile2", SrcFileDir$, PICTPUB$
  1020.         ENDIF
  1021.  
  1022.         IF ftype% = EFCTFILES THEN
  1023.         AddSectionFilestoCopyList "Effects", SrcFileDir$, PICTPUB$+"\effects"
  1024.         END IF
  1025.         SrcDir$ = ""
  1026.     END IF
  1027. ENDIF
  1028. END SUB
  1029.  
  1030.